home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / ilxemacs.el.z / ilxemacs.el
Encoding:
Text File  |  1998-05-21  |  2.4 KB  |  94 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; illuc19.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.8
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
  11. ;;;               1996 Marco Antoniotti and Rick Campbell
  12. ;;;
  13. ;;; Other authors' names for which this Copyright notice also holds
  14. ;;; may appear later in this file.
  15. ;;;
  16. ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
  17. ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
  18. ;;; mailing list were bugs and improvements are discussed.
  19. ;;;
  20. ;;; ILISP is freely redistributable under the terms found in the file
  21. ;;; COPYING.
  22.  
  23. ;;;============================================================================
  24. ;;; Variables
  25.  
  26. ;;; XEmacs 19.14 doesn't have comint-input-chunk-size but earlier
  27. ;;; versions do, so we define here if needed. (toy@rtp.ericsson.se)
  28.  
  29. (if (not (boundp 'comint-input-chunk-size))
  30.     (setq comint-input-chunk-size 512))
  31.  
  32.  
  33.  
  34. ;;;============================================================================
  35. ;;; Functions
  36.  
  37. (defun ilisp-get-input-ring ()
  38.   "Use instead of get-input-ring coming-input-ring or input-ring."
  39.   (if (eq +ilisp-emacs-version-id+ 'lucid-19)
  40.       (get-input-ring)
  41.       ;; else lucid-19-new
  42.       comint-input-ring))
  43.  
  44.  
  45. (defun ilisp-ring-insert (ring input)
  46.   (if (eq +ilisp-emacs-version-id+ 'lucid-19)
  47.       (ring-insert-new ring input)
  48.       (ring-insert ring input)))
  49.  
  50.  
  51. (defun ilisp-temp-buffer-show-function-symbol ()
  52.   'temp-buffer-show-function)
  53.  
  54.  
  55. (defun set-ilisp-temp-buffer-show-function (val)
  56.   (setq temp-buffer-show-function val))
  57.  
  58.  
  59. (defun ilisp-temp-buffer-show-function ()
  60.   temp-buffer-show-function)
  61.  
  62.  
  63. (defun ilisp-input-ring-index ()
  64.   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  65.       comint-input-ring-index
  66.       input-ring-index))
  67.  
  68.  
  69. (defun set-ilisp-input-ring-index (n)
  70.   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  71.       (setq comint-input-ring-index n)
  72.       (setq input-ring-index n)))
  73.  
  74.  
  75. (defun ilisp-input-ring-size ()
  76.   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  77.       comint-input-ring-size
  78.       input-ring-size))
  79.  
  80.  
  81. (defun set-ilisp-input-ring-size (n)
  82.   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  83.       (setq comint-input-ring-size n)
  84.       (setq input-ring-size n)))
  85.  
  86.  
  87. ;;============================================================================
  88. ;;; Epilogue
  89.  
  90. (provide 'il-luc19)
  91.  
  92. ;;; end of file -- il-luc19.el --
  93.  
  94.